home *** CD-ROM | disk | FTP | other *** search
/ Aminet 4 / Aminet 4 - November 1994.iso / aminet / comm / term / vltj5867.lha / VLT / rexx / SetPing.rexx < prev    next >
OS/2 REXX Batch file  |  1992-03-24  |  426b  |  22 lines
  1. /** SetPing.rexx
  2. *
  3. *   Set up the PingServer with a nice chime.
  4. *   Requires 'Ping'. This macro is usually run in the startup-sequence.
  5. *
  6. **/
  7. if ~show('l','rexxarplib.library') then addrexxlib
  8. /*
  9. *   Run Ping:
  10. */
  11. address command 'PingServer'
  12. /*
  13. *   Wait until its port appears
  14. */
  15. do i = 1 to 20
  16.    if ~showlist('p', 'PingServer') then call delay 20
  17.    else leave i
  18. end
  19.  
  20. call sendparsed('PingServer', SET, 1000, 5000, 64)
  21. exit
  22.